home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls085.solintel.Z / tls085.solintel / lib / vtcl / tests / autolock_fsb.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  3.0 KB  |  146 lines
  1. # CVS $Id: autolock_fsb.tcl,v 1.1 1995/02/03 17:15:07 zibi Exp $
  2. #
  3. # Example program for fileselection box
  4. #
  5.  
  6. set first_but True
  7.  
  8. proc quitCB {cbs} {
  9.     VtClose
  10.     exit 0
  11. }
  12.  
  13.  
  14. proc okCB {cbs} {
  15.      global rc
  16.  
  17.      #
  18.      # Getting value via callback parameter
  19.      #
  20.      set cb_value [keylget cbs selection]
  21.  
  22.      set wl [split $cb_value "/"]
  23.      set wi [expr "[llength $wl] - 1"]
  24.      set file [lindex $wl $wi]
  25.  
  26.      VtSetValues $rc.file -value $file
  27.      sleep 2
  28.      VtUnLock
  29. }
  30.  
  31.  
  32. proc defaultCB {cbs} {
  33.  
  34.     set but [keylget cbs widget]
  35.  
  36.     set fsb1 [VtFileSelectionDialog $but.default  \
  37.                     -title "Default Fsb" \
  38.                     -okCallback okCB -autoLock okCB]
  39.     VtShow $fsb1
  40. }
  41.  
  42. proc labelsCB {cbs} {
  43.     set but [keylget cbs widget]
  44.  
  45.     set fsb2 [VtFileSelectionDialog $but.default \
  46.                     -title "Fsb with Button Labels"\
  47.                     -filterLabel FILTER_STR_LABEL \
  48.                     -fileListLabel FILE_LIST_LABEL \
  49.                     -dirListLabel DIR_LIST_LABEL \
  50.                     -selectionLabel SELECTION_LABEL\
  51.                     -okLabel OK_LABEL \
  52.                     -applyLabel FILTER_LABEL \
  53.                     -helpLabel HELP_LABEL \
  54.                     -cancelLabel CANCEL_LABEL \
  55.                     -okCallback okCB -autoLock okCB]
  56.     VtShow $fsb2
  57. }
  58.  
  59. proc hideDirListCB {cbs} {
  60.     set but [keylget cbs widget]
  61.  
  62.     set fsb3 [VtFileSelectionDialog $but.default \
  63.                     -title "No Directory List" \
  64.                     -hideDirList \
  65.                     -okCallback okCB -autoLock okCB]
  66.     VtShow $fsb3
  67. }
  68.  
  69. proc hideDirListAndFilterCB {cbs} {
  70.     set but [keylget cbs widget]
  71.  
  72.     set fsb4 [VtFileSelectionDialog $but.default \
  73.                         -title "Files in /etc/default" \
  74.                         -filter /etc/default/* \
  75.                         -hideFilter \
  76.                         -hideDirList \
  77.                         -okCallback okCB -autoLock okCB]
  78.     VtShow $fsb4
  79. }
  80.  
  81. proc selectionCB {cbs} {
  82.     set but [keylget cbs widget]
  83.  
  84.     set fsb5 [VtFileSelectionDialog $but.default  \
  85.                       -title "-selection /etc/default/filesys" \
  86.                       -filter /etc/default/* \
  87.                       -selection /etc/default/filesys \
  88.                       -okCallback okCB -autoLock okCB]
  89.     VtShow $fsb5
  90. } 
  91.  
  92. proc cancelCB {cbs} {
  93.     set box [keylget cbs widget]
  94.     VtHide $box
  95.     sleep 2
  96.     VtUnLock
  97. }
  98.  
  99. proc autoHideCB {cbs} {
  100.     global first_but
  101.     global fsb6
  102.  
  103.     set but [keylget cbs widget]
  104.  
  105.     if {$first_but == "True"} {
  106.         set fsb6 [VtFileSelectionDialog $but.default  \
  107.                 -title "-autoHide False w/ cancelCB" \
  108.                 -autoHide False \
  109.                 -autoDestroy False \
  110.                 -cancelCallback cancelCB \
  111.                 -autoLock cancelCB]
  112.         set first_but False
  113.     }
  114.     VtShow $fsb6
  115. }
  116.  
  117.  
  118.  
  119. #
  120. # Start Program
  121. #
  122. #
  123. set app [VtOpen fsb]
  124.  
  125. set fn [VtStartForm $app.form -title "Fsb's" ]
  126.  
  127. set rc [VtRowColumn $fn.rc1]
  128. VtPushButton $rc.but1 -label "Default fsb" \
  129.               -callback defaultCB
  130. VtPushButton $rc.but2 -label "Changing Widget Labels" \
  131.               -callback labelsCB
  132. VtPushButton $rc.but3 -label -hideDirList \
  133.               -callback hideDirListCB
  134. VtPushButton $rc.but4 -label "-hideDirList and -hideDirFilter "\
  135.                       -callback hideDirListAndFilterCB 
  136. VtPushButton $rc.but5 -label -selection \
  137.                       -callback selectionCB
  138. VtPushButton $rc.but6 -label "-autoHide False" \
  139.                       -callback autoHideCB
  140. VtText $rc.file -readOnly
  141. VtPushButton $rc.but9 -label QUIT \
  142.               -callback quitCB 
  143.  
  144. VtShow $fn
  145. VtMainLoop
  146.